home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / INCOME TAXES.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  47 lines
  1. 20  PRINT 
  2. 30  DATA  16,1300,20,3500,23,6000,21,9500,26,12500,30,14500,36,18000
  3. 40  DATA  17,2500,20,5000,17,9000,25,13750,28,18000,32,22500,36,26000
  4. 50 F1 = .0585
  5. 60 F2 = 16500
  6. 70 W1 = 750
  7. 80 N = 12
  8. 90  DIM F1(28)
  9. 100  FOR I = 1 TO 28
  10. 110  READ F1(I)
  11. 120  NEXT I
  12. 130  PRINT 
  13. 140  PRINT "MARITAL STATUS (1=SINGLE,2=MARRIED)";
  14. 150  INPUT S
  15. 160  PRINT "WITHHOLDING TAX EXEMPTIONS";
  16. 170  INPUT W
  17. 180  PRINT "TAXABLE PAY";
  18. 190  INPUT P
  19. 200  PRINT "YTD TAXABLE PAY";
  20. 210  INPUT Y
  21. 220 G = P *N -W1 *W
  22. 230 T1 = 0
  23. 240  FOR I = 2 TO 7
  24. 250 X = 2 *I +14 *(S -1) -1
  25. 260  IF G < = F1(X -1)  THEN 330
  26. 270  IF G >F1(X +1)  THEN 300
  27. 280 T1 = T1 +(G -F1(X -1)) *F1(X -2)/100
  28. 290  GOTO 330
  29. 300 T1 = T1 +(F1(X +1) -F1(X -1)) *F1(X -2)/100
  30. 310  NEXT I
  31. 315 T1 = T1 +(G -F1(X +1)) *F1(X)/100
  32. 320 T1 = T1 +(G -F1(X +1)) *F1(X)/100
  33. 330 T1 =  INT((T1/N) *100 +.5)/100
  34. 340 T2 = 0
  35. 350  IF Y >F2  THEN 400
  36. 360  IF Y +P >F2  THEN 360
  37. 370 T2 =  INT((P *F1) *100 +.5)/100
  38. 380  GOTO 400
  39. 390 T2 =  INT(((F2 -Y) *F1) *100 +.5)/100
  40. 400  PRINT "TAXABLE = $"P
  41. 410  PRINT "INCOME TAX = $";T1
  42. 420  PRINT "FICA = $"T2
  43. 430  PRINT 
  44. 440  PRINT "MORE DATA (1=YES,0=NO)";
  45. 450  INPUT S
  46. 460  IF S = 1  THEN 120
  47. 470  PRINT "<CTRL-D>RUNHELLO"